home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -in_the_mag- / banging_the_metal / qdos / qdos4amiga1 / mountqldrives < prev    next >
Text File  |  2000-01-03  |  804b  |  60 lines
  1. FailAt 21
  2.  
  3. If EXISTS l:xfsd
  4.  
  5.  If EXISTS devs:fd.device
  6.  
  7.   Assign >NIL: DF0: EXISTS
  8.   If NOT WARN
  9.  
  10.    Assign >NIL: FD0: EXISTS
  11.    If WARN
  12.  
  13.     Version >NIL: CLI 37 internal
  14.     If NOT WARN
  15.      Echo "Mounting FD0: (multi filesys)"
  16.      Mount FD0:
  17.     Else
  18.      Echo "Mounting FD0: (multi filesys)"
  19.      Mount FD0: FROM devs:mountlist.xfsd
  20.     EndIf
  21.  
  22.    EndIf
  23.  
  24.   EndIf
  25.  
  26.   Assign >NIL: DF1: EXISTS
  27.   If NOT WARN
  28.  
  29.    Assign >NIL: FD1: EXISTS
  30.    If WARN
  31.  
  32.     Version >NIL: CLI 37 internal
  33.     If NOT WARN
  34.      Echo "Mounting FD1: (multi filesys)"
  35.      Mount FD1:
  36.     Else
  37.      Echo "Mounting FD1: (multi filesys)"
  38.      Mount FD1: FROM devs:mountlist.xfsd
  39.     EndIf
  40.  
  41.    EndIf
  42.  
  43.   EndIf
  44.  
  45.  Else
  46.  
  47.   Echo "Please copy fd.device to devs: "
  48.  
  49.  EndIf
  50.  
  51. Else
  52.  
  53.  Echo "Please copy xfsd to L: "
  54.  
  55. EndIf
  56.  
  57. FailAt 10
  58.  
  59. Break 1 C
  60.